﻿Public Partial Class frm_PortToDay
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            '**********************************************
            'LCT
            '**********************************
            Dim HtmlLCT As String = ""
            'ถ้า 2A มามากกว่า 1 ลำ
            Dim TwoShip As Boolean = True
            If (TwoShip) Then

                HtmlLCT &= "  <table style='position:relative;height:130px;left:105px;top:40px;' width='165px' > " & vbCrLf
                HtmlLCT &= " <tr> " & vbCrLf
                HtmlLCT &= "  <td> " & vbCrLf
                HtmlLCT &= " <table width='100%' border='0' >" & vbCrLf
                HtmlLCT &= " <tr> " & vbCrLf
                HtmlLCT &= "  <td align='right'><img src='../Image/boat_22.png' title='2A_1' /></td> " & vbCrLf
                HtmlLCT &= " </tr> " & vbCrLf
                HtmlLCT &= " <tr> " & vbCrLf
                HtmlLCT &= "  <td align='right'><img src='../Image/boat_22.png' title='2A_2' /></td> " & vbCrLf
                HtmlLCT &= " </tr> " & vbCrLf
                HtmlLCT &= " </table>  " & vbCrLf
                HtmlLCT &= " </td> " & vbCrLf
            Else

                HtmlLCT &= "  <table style='position:relative;height:130px;left:105px;top:40px;' width='150px' > " & vbCrLf
                HtmlLCT &= " <tr> " & vbCrLf
                HtmlLCT &= "  <td><img src='../Image/boat_21.png' title='2A' /></td> " & vbCrLf
            End If
            HtmlLCT &= "    <td><img src='../Image/boat_21.png' title='2B' /></td> " & vbCrLf

            HtmlLCT &= "   </tr> " & vbCrLf
            HtmlLCT &= "  </table> " & vbCrLf

            HtmlLCT &= "  <table style='position:relative;height:130px;left:60px;top:40px;' width='150px' > " & vbCrLf
            HtmlLCT &= "   <tr> " & vbCrLf
            HtmlLCT &= "    <td><img src='../Image/boat_21.png' title='1' /></td>" & vbCrLf
            HtmlLCT &= "     <td><img src='../Image/boat_21.png' title='3' /></td>" & vbCrLf
            HtmlLCT &= "   </tr> " & vbCrLf
            HtmlLCT &= "  </table> " & vbCrLf

            HtmlLCT &= " <table style='position:relative;height:130px;left:140px;top:60px;' width='75px' > " & vbCrLf
            HtmlLCT &= "  <tr> " & vbCrLf
            HtmlLCT &= "     <td><img src='../Image/boat_1.png' title='4' /></td>" & vbCrLf
            HtmlLCT &= "   </tr> " & vbCrLf
            HtmlLCT &= " </table> " & vbCrLf

            HtmlLCT &= " <table style='position:relative;height:130px;left:140px;top:70px;' width='75px' > " & vbCrLf
            HtmlLCT &= "  <tr>" & vbCrLf
            HtmlLCT &= "    <td><img src='../Image/boat_1.png' title='5' /></td>" & vbCrLf
            HtmlLCT &= "    </tr> " & vbCrLf
            HtmlLCT &= "   </table> " & vbCrLf

            LiLCT.Text = HtmlLCT

            '**********************************************
            'BCT
            '**********************************
            Dim HtmlBCT As String = ""

            HtmlBCT &= " <table style='position:relative;height:130px;left:120px;top:190px;' width='100px' > " & vbCrLf
            HtmlBCT &= "  <tr> " & vbCrLf
            HtmlBCT &= "    <td><img src='../Image/boat_1.png' title='8A2' /></td> " & vbCrLf
            HtmlBCT &= "    <td><img src='../Image/boat_1.png' title='8B2' /></td> " & vbCrLf
            HtmlBCT &= "   </tr>" & vbCrLf
            HtmlBCT &= " </table>" & vbCrLf

            HtmlBCT &= " <table style='position:relative;height:130px;left:120px;top:190px;' width='100px' >" & vbCrLf
            HtmlBCT &= "   <tr>" & vbCrLf
            HtmlBCT &= "    <td><img src='../Image/boat_1.png' title='8A1' /></td> " & vbCrLf
            HtmlBCT &= "     <td><img src='../Image/boat_1.png' title='8B1' /></td> " & vbCrLf
            HtmlBCT &= "    </tr> " & vbCrLf
            HtmlBCT &= " </table> " & vbCrLf

            HtmlBCT &= "  <table style='position:relative;height:130px;left:120px;top:190px;' width='100px'>" & vbCrLf
            HtmlBCT &= "  <tr> " & vbCrLf
            HtmlBCT &= " <td><img src='../Image/boat_1.png' title='7A' /></td> " & vbCrLf
            HtmlBCT &= "    <td><img src='../Image/boat_1.png' title='7B' /></td>" & vbCrLf
            HtmlBCT &= "  </tr> " & vbCrLf
            HtmlBCT &= "  </table> " & vbCrLf

            LiBCT.Text = HtmlBCT
        End If
    End Sub

End Class